perm filename CMPDES.TEX[PEG,DBL]1 blob
sn#457990 filedate 1979-07-12 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00005 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 \chcode'173←1 \chcode'176←2 \chcode'44←3 \chcode'26←4 % defines meta-
C00008 00003 \:@←cmathx \:a←cmr10 \:b←cmr9 \:c←cmr8
C00012 00004 \def\titlepage{\gdef\tpage{T}} % \titlepage sets tpage to T
C00018 00005 \def\tpage{F} \def\lhead{} \def\rhead{} % "global variables"
C00021 ENDMK
C⊗;
\chcode'173←1 \chcode'176←2 \chcode'44←3 \chcode'26←4 % defines meta-
\chcode'45←5 \chcode'43←6 \chcode'136←7 \chcode 1←8 % characaters
\def\lft#1{#1\hfill} % various useful leftifying, rightifying,
\def\ctr#1{\hfill#1\hfill} % etc. macros
\def\rt#1{\hfill#1}
\def\top#1{#1\vfill}
\def\mid#1{\vfill#1\vfill}
\def\bot#1{\vfill#1}
\def\rjustline#1{\hbox to size{\hskip0pt plus1000cm minus1000cm #1}}
\def\ljustline#1{\hbox to size{#1\hskip0pt plus1000cm minus1000cm}}
\def\ctrline#1{\hbox to size{\hskip0pt plus1000cm minus1000cm #1\hskip0pt
plus1000cm minus1000cm}}
\def\null{\hbox{}} % inserts one blank line (in vertical mode)
\def\trace{\chpar0←}
\def\jpar{\chpar1←}
\def\log{\mathop{\char'154\char'157\char'147}\limitswitch}
\def\lg{\mathop{\char'154\char'147}\limitswitch}
\def\ln{\mathop{\char'154\char'156}\limitswitch}
\def\lim{\mathop{\char'154\char'151\char'155}}
\def\limsup{\mathop{\char'154\char'151\char'155\,\char'163\char'165\char'160}}
\def\liminf{\mathop{\char'154\char'151\char'155\,\char'151\char'156\char'146}}
\def\sin{\mathop{\char'163\char'151\char'156}\limitswitch}
\def\cos{\mathop{\char'143\char'157\char'163}\limitswitch}
\def\tan{\mathop{\char'164\char'141\char'156}\limitswitch}
\def\cot{\mathop{\char'143\char'157\char'164}\limitswitch}
\def\sec{\mathop{\char'163\char'145\char'143}\limitswitch}
\def\csc{\mathop{\char'143\char'163\char'143}\limitswitch}
\def\max{\mathop{\char'155\char'141\char'170}}
\def\min{\mathop{\char'155\char'151\char'156}}
\def\sup{\mathop{\char'163\char'165\char'160}}
\def\inf{\mathop{\char'151\char'156\char'146}}
\def\det{\mathop{\char'144\char'145\char'164}}
\def\exp{\mathop{\char'145\char'170\char'160}\limitswitch}
\def\Pr{\mathop{\char'120\char'162}}
\def\gcd{\mathop{\char'147\char'143\char'144}}
\def\lcm{\mathop{\char'154\char'143\char'155}}
\def\ldots{{.\≥.\≥.}}
\def\cdots{{\char'401\≥\char'401\≥\char'401}}
\def\ldotss{{.\≥.\≥.\≥}}
\def\cdotss{\cdots\≥}
\def\ldotsm{{\≥.\≥.\≥.\≥}}
\def\vdots{\vbox{\baselineskip 4pt\vskip 6pt\hbox{.}\hbox{.}\hbox{.}}}
\def\leftset{\mathopen{\{\,}}
\def\rightset{\mathclose{\,\}}}
\def\neqv{\mathrel{\not≡}}
\def\%{\char'45 } % use "\%" to ge a % sign, not just "%"!
\def\deg{↑{\hbox{\hskip-1pt\:w\char5}}} % use in math mode
\def\choose{\comb()}
\def\mod{\<\,\mathbin{\char'155\char'157\char'144}\penalty900\<\,}
\def\modulo#1{\penalty0\;(\char'155\char'157\char'144\char'165\char'154\char'157
\,\,#1)}
\def\cpile#1{\vcenter{\halign{\hfill$## $\hfill\cr#1}}}
\def\lpile#1{\vcenter{\halign{$## $\hfill\cr#1}}}
\def\rpile#1{\vcenter{\halign{\hfill$## $\cr#1}}}
\def\eqalign#1{\vcenter{\halign{\hfill$\dispstyle{##}$⊗$\dispstyle{\null##}$\hfill
\cr#1}}}
\def\eqalignno#1{\vbox{\tabskip 0pt plus 1000pt minus 1000pt
\halign to size{\hfill$\dispstyle{##}$\tabskip 0pt
⊗$\dispstyle{\null##}$\hfill\tabskip 0 pt plus 1000pt minus 1000pt
⊗\hfill$ ##$\tabskip 0pt\cr#1}}}
\def\twoline#1#2#3{\halign{\hbox to size{##}\cr\quad$\dispstyle{#1}$\hfill\cr
\noalign{\penalty 1000\vskip#2}\hfill$\dispstyle{#3}$\quad\cr}}
\def\chop to#1pt#2{\hbox{\lower#1pt
\null\vbox{\hbox{\lower100pt\hbox{\raise100pt
\hbox{$\dispstyle{#2}$}}}\vskip-100pt}}} % pretends that #2 is #1pt deep
\def\spose#1{\hbox to 0pt{#1 \hskip 0pt minus 10000000pt}}
\:@←cmathx \:a←cmr10 \:b←cmr9 \:c←cmr8
\:d←cmr7 \:e←cmr6 \:f←cmr5 \:g←cmi10
\:h←cmi9 \:i←cmi8 \:j←cmi7 \:k←cmi6
\:l←cmi5 \:m←cmsc10 \:n←cms10 \:o←cms9
\:p←cms8 \:q←cmb10 \:r←cmb9 \:s←cmb8
\:t←cmtt \:u←cmsy10 \:v←cmsy9 \:w←cmsy8
\:x←cmsy7 \:y←cmsy6 \:z←cmsy5 \:;←cmtitl
\:<←cmssb \:=←cmss12 \:>←cmss8 \:?←cmsss8
% these sizes give output suitable for photo-reduction (77%):
\hsize 29pc \vsize 45pc \maxdepth 2pt \parindent 20pt \topbaseline 10pt
\parskip 0pt plus 1 pt \lineskip 1pt
\topskip 24pt plus 6pt minus 10pt \botskip 3pt plus 6pt
\def\tenpoint{\baselineskip 12pt \dispskip 12pt plus 3pt minus 9pt
\dispaskip 0pt plus 3pt \dispbskip 7pt plus 3pt minus 4pt
\def\rm{\:a} \def\sl{\:n} \def\bf{\:q} \def\it{\:g}
\def\biglp{\mathopen{\vcenter{\hbox{\:@\char'0}}}}
\def\bigrp{\mathclose{\vcenter{\hbox{\:@\char'1}}}}
\def\9{\hskip 5pt}
\mathrm adf \mathit gjl \mathsy uxz \rm}
\def\ninepoint{\baselineskip 11pt \dispskip 11pt plus 3pt minus 8pt
\dispaskip 0pt plus 3pt \dispbskip 6pt plus 3pt minus 3pt
\def\rm{\:b} \def\sl{\:o} \def\bf{\:r} \def\it{\:h}
\def\biglp{\mathopen{\hbox{\:a(}}}
\def\bigrp{\mathclose{\hbox{\:a)}}}
\def\9{\hskip 4.625pt}
\mathrm bef \mathit hkl \mathsy vyz \rm}
\def\eightpoint{\baselineskip 9pt \dispskip 9pt plus 3pt minus 7pt
\dispaskip 0pt plus 3pt \dispbskip 5pt plus 3pt minus 2pt
\def\rm{\:c} \def\sl{\:p} \def\bf{\:s} \def\it{\:i}
\def\biglp{\mathopen{\hbox{\:a(}}}
\def\bigrp{\mathclose{\hbox{\:a)}}}
\def\9{\hskip 4.25pt}
\mathrm cef \mathit ikl \mathsy wyz \rm}
\mathex @ \def\tt{\:t}
\def\bigglp{\mathopen{\vcenter{\hbox{\:@\char'22}}}}
\def\biggrp{\mathclose{\vcenter{\hbox{\:@\char'23}}}}
\def\biggglp{\mathopen{\vcenter{\hbox{\:@\char'40}}}}
\def\bigggrp{\mathclose{\vcenter{\hbox{\:@\char'41}}}}
\def\qquad{\hskip 20pt}
\def\xskip{\hskip 7pt plus 3pt minus 4pt}
\def\yskip{\penalty-50\vskip 3pt plus 3pt minus 2pt}
\def\yyskip{\penalty-100\vskip 6pt plus 6pt minus 4pt}
\def\sectionskip{\penalty-200\vskip 24pt plus 12pt minus 6pt}
\def\textindent#1{\noindent\hbox to 19pt{\hskip 0pt plus 1000pt minus 1000pt#1\
}\!}
\def\hang{\hangindent 19pt}
\def\titlepage{\gdef\tpage{T}} % \titlepage sets tpage to T
\def\runninglefthead#1{\gdef\lhead{\:r#1}} %\runninglefthead sets lhead
\def\runningrighthead#1{\gdef\rhead{\:r#1}} %\runningrighthead sets rhead
\def\quoteformat#1{\baselineskip 11pt \def\rm{\:>} \def\sl{\:?}
\def\bf{\error} \def\it{\:?}
\vskip 6pt plus 2pt minus 2pt
{\sl\halign{\rjustline{##}\cr#1}}}
\def\author#1{\penalty1000\vskip 6pt plus 2pt minus 2pt
\rm\rjustline{---#1}
\vskip 8pt plus 4pt minus 2pt}
\def\sectionbegin[#1]#2{\hbox{\:q#1 #2\hfill}
\penalty 1000 \vskip 6pt plus 3pt \setcount3 1 % count3 for footnotes
\mark{$\section$ #1}\runningrighthead#2\tenpoint\!}
\def\subsectionbegin[#1]#2{\sectionskip\hbox{\:q#1 #2\hfill}
\penalty 1000 \vskip 6pt plus 3pt
\mark{$\section$ #1}\tenpoint\!}
\def\dimsectionbegin[#1]#2{\yyskip\mark{$\section$ #1}
\noindent\tenpoint{\bf#1 #2}\qquad\!}
\def\tablehead#1{\ctrline{\:<#1}\ninepoint}
\def\caption Fig.\ #1.{\ninepoint{\bf Fig.\ #1.}\xskip\!}
\def\ellipsis{$\ldots$} % ==> ...
\def\middot{\raise 2.5pt \hbox to 20pt{\hfill .\hfill}} % dot raised to middle
\def\star{\hbox to 0pt{\hskip 0pt minus 100pt *}}
\def\blackslug{\hbox{\hskip 1pt \vrule width 4pt height 6pt depth 1.5pt
\hskip 1pt}} % a black box for ending algorithms, etc.
\def\eg{{\it e.g.}} % italicized e.g., i.e., q.v.
\def\ie{{\it i.e.}}
\def\qv{{\it q.v.}}
\def\ttl{\:;} % "cmttl" font for titles; use uppercase only
\def\filename#1{{\:m #1}} % small caps for filenames
\def\cit[#1]{\penalty 500 \raise 3pt % raised text in square brackets for
\hbox{\eightpoint \rm [#1]}} % reference citations
\def\topofpage{\null\vskip-12pt} % allows glue at top of page
\def\newpage{\vfill\eject\topofpage} % fills old page, starts new one
\def\worldend{\vfill \eject \end} % finishes page, ends input
\def\ffootnote#1{ % for the first footnote on a page
\raise 2pt\hbox{\hskip -3pt plus 0pt minus 0pt{\:c \count3}}
\botinsert{
\hrule width 5pc
\vskip 2pt \baselineskip 9pt
\hbox par size{\raise 1.667pt\hbox{\:c \count3}{\eightpoint{\rm #1}}}
}
\advcount3}
\def\footnote#1{ % for subsequent footnotes on a page
\raise 2pt\hbox{\hskip -3pt plus 0pt minus 0pt{\:c \count3}}
\botinsert{
\vskip 1.5pt \baselineskip 9pt
\hbox par size{\raise 1.667pt\hbox{\:c \count3}{\eightpoint{\rm #1}}}
}
\advcount3}
\def\appendices#1{\newpage \titlepage % used once, at beginning of appendices;
\vskip 5cm \ctrline{{\bf #1}} % #1 will usually be "Appendices"
\output{\baselineskip 0pt\lineskip0pt % redefines page format
\vbox to 48pc{
\if T\tpage
{\gdef\tpage{F}
\vskip 24pt
\page
\vfill}
\else{\baselineskip 12pt \null
\hbox to size{
\ifeven0{{\:b{Appendix \appnxnum\ Page \count0}
\hfill\lhead\topmark}}
\else{{\:b\botmark\hfill\rhead\hfill
{Appendix \appnxnum\ Page \count0}}} }
\null
\page\vfill}
}
\advcount0} }
\def\appendixbegin[#1]#2{\newpage\runningrighthead{#2} % begins each new
\vskip 3cm \ctrline{{\bf #2}} \sectionskip % appendix
\setcount0 1 \def\appnxnum{#1}}
\def\bibentry [#1]#2{ % format for bibliography entries
\hbox{{\lft{\bf #1.}}}
\vskip -14pt plus 0pt minus 0pt \noindent \hangindent 38pt
\hbox to 20pt{}#2\par \yyskip}
\def\tpage{F} \def\lhead{} \def\rhead{} % "global variables"
\output{\baselineskip 0pt\lineskip0pt % beginning of output routine, resets skips
\vbox to 47pc{ % prepare the full page of this fixed height
\if T\tpage % used when tpage is "T" (title pages)
{\gdef\tpage{F} % reset tpage
\vskip 24pt % blank space in place of headlines
\page % insert the page contents
\vfill % fill up the page
\rjustline{\:s\count0}} % "drop folio" page number in 8pt bf type
\else{\baselineskip 8pt \null % empty line to position next baseline
\hbox to size{
\ifeven0{{\:s\count0} % put in page number, running head;
\hfill{\:m\lhead}} % left head for even pages, right
\else{{\:m\rhead}\hfill % for odd pages
{\:s\count0}} }
\null\null % position page 24pt from top
\page\vfill} % insert the page contents
} % completion of the \vbox
\advcount0} % increase page number by 1 and end output routine
\def\corners{\vbox to 0pt{\baselineskip0pt\lineskip 0pt \vskip -24pt
\hbox to size{\vrule height .2pt width 11pt \hfill \vrule width 11pt}
\hbox to size{\vrule height 11pt width .2pt \hfill \vrule width .2pt}
\vfill}} % this will indicate true top corners on title page
\setcount0 0 % count0 for page numbers
\setcount3 1 % count3 for footnote numbers
\topofpage
\tenpoint
\rm
% if you want to change \vsize, you have to \eject the first page first